home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / allswag.zip / DESQVIEW.SWG < prev    next >
Text File  |  1993-12-08  |  14KB  |  1 lines

  1. SWAGOLX.EXE (c) 1993 GDSOFT  ALL RIGHTS RESERVED 00004         DESQVIEW ROUTINES                                                 1      05-28-9313:37ALL                      SWAG SUPPORT TEAM        DESQVIEW.PAS             IMPORT              39          { Does anyone know the routine For making a Program DV aware, and if itπ finds it, can you get it to make calls to it instead of Dos?π}πHere is a desqview Unit I have used in the past.ππUnit DESQVIEW ;ππ{$O+,F+}ππInterfaceππUses Dos ;ππVarπ  DV_ACTIVE    : Boolean ;          { True if running under DESQview     }π  Win_ACTIVE   : Boolean ;          { True if Windows 3.x Enhanced Mode  }π  DV_VERSION   : Word ;             { desqVIEW version number            }π  DV_VSEG      : Word ;π  DV_VMODE     : Byte Absolute $0040:$0049 ;π  DV_VWIDTH    : Byte ;π  DV_VROWS     : Byte ;π  DV_VofS      : Word ;πππProcedure DV_RQM   ;                { Give up the rest of our timeslice  }πProcedure DV_begin_CRITICAL ;       { Turn Task Switching off.           }πProcedure DV_end_CRITICAL ;         { Turn switching back on.            }πProcedure DV_VIDEO_BUFFER ;         { Set Global Video Variables         }πFunction  DV_Window_NUMBER : Byte ; { Returns Window Number              }πProcedure DV_COMMON_MEMorY(Var AVAIL, LARGEST, toTAL: Word) ;πProcedure DV_CONV_MEMorY  (Var AVAIL, LARGEST, toTAL: Word) ;πProcedure DV_EMS_MEMorY   (Var AVAIL, LARGEST, toTAL: Word) ;πProcedure DV_FASTWrite    (X,Y: Word; STR: String; FG,BG: Word) ;ππImplementationππVarπ  REG     : Registers ;ππProcedure DV_RQM ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov  ax, 1000hπ      int  15hπ    end ;π  end else beginπ    if Win_ACTIVE then beginπ      Asmπ        mov  ax, 1680hπ        int  2fhπ      end ;π    end ;π  end ;πend { dv_rqm };ππProcedure DV_begin_CRITICAL ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov   ax, $101bπ      int   15hπ    end ;π  end else beginπ    if Win_ACTIVE then beginπ      Asmπ        mov  ax, 1681hπ        int  2fhπ      end ;π    end ;π  end ;πend ; { dv_begin_critical }ππProcedure DV_end_CRITICAL ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov   ax, $101cπ      int   15hπ    end ;π  end else beginπ    if Win_ACTIVE then beginπ      Asmπ        mov  ax, $1682π        int  2fhπ      end ;π    end ;π  end ;πend ; { dv_end_critical }ππProcedure DV_VIDEO_BUFFER ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov  ax, $2b02π      mov  bx, $4445  ; { DE }π      mov  dx, $5351  ; { SQ }π      int  21hπ      mov  DV_VSEG, dxπ      mov  DV_VWIDTH, blπ      mov  DV_VROWS, bhπ      mov  DV_VofS, 0π    end ;π  end else beginπ    if (DV_VMODE = 7) then DV_VSEG := $b000 else DV_VSEG := $b800 ;π    DV_VWIDTH := memw[$0040:$004a] ;π    DV_VROWS  := 25 ;π    DV_VofS   := memw[$0040:$004e] ;π  end ;πend ; { dv_video_buffer }ππFunction DV_Window_NUMBER ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov   ax, $de07π      int   15hπ      mov  @RESULT, alπ    end ;π  end else beginπ    DV_Window_NUMBER := 0 ;π  end ;πend ;ππProcedure DV_COMMON_MEMorY ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov  ax, $de04π      int  15hπ      les  di, AVAILπ      mov  es:[di], bxπ      les  di, LARGESTπ      mov  es:[di], cxπ      les  di, toTALπ      mov  es:[di], dxπ    end ;π  end else beginπ    AVAIL := 0 ;π    LARGEST := 0 ;π    toTAL := 0 ;π  end ;πend ;ππProcedure DV_CONV_MEMorY ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov  ax, $de05π      int  15hπ      les  di, AVAILπ      mov  es:[di], bxπ      les  di, LARGESTπ      mov  es:[di], cxπ      les  di, toTALπ      mov  es:[di], dxπ    end ;π  end else beginπ    AVAIL := 0 ;π    LARGEST := 0 ;π    toTAL := 0 ;π  end ;πend ;ππProcedure DV_EMS_MEMorY ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov  ax, $de06π      int  15hπ      les  di, AVAILπ      mov  es:[di], bxπ      les  di, LARGESTπ      mov  es:[di], cxπ      les  di, toTALπ      mov  es:[di], dxπ    end ;π  end else beginπ    AVAIL := 0 ;π    LARGEST := 0 ;π    toTAL := 0 ;π  end ;πend ;ππProcedure DV_FASTWrite ;ππVarπ  I      : Word ;ππbeginπ  X := DV_VofS + ((Y-1) * DV_VWIDTH + (X-1)) * 2 ;π  For I := 1 to length(STR) do beginπ    MEMW[DV_VSEG:X] := (((BG shl 4) + FG) shl 8) + ord(STR[I]) ;π    X := X + 2 ;π  end ;πend ;ππbegin { main }π  REG.AX := $2b01 ;π  REG.CX := $4445 ;  { DE }π  REG.DX := $5351 ;  { SQ }π  intr($21,REG) ;ππ  Win_ACTIVE := False ;π  DV_ACTIVE := (REG.AL <> $ff) ;ππ  DV_VERSION := 0 ;π  if DV_ACTIVE then beginπ    DV_VERSION := REG.BX ;π    REG.AX := $de0b ;π    REG.BX := $0200 ;  { Minimum of Desqview 2.00 }π    intr($15,REG) ;π  end else beginπ    REG.AX := $1600 ;π    intr($2f,REG) ;π    Case REG.AL ofπ      $00 : ; { An enhanced Windows API is not Running }π      $80 : ; { An enhanced Windows API is not Running }π      $01 : ; { Windows / 386 Version 2.x              }π      $ff : ; { Windows / 386 Version 2.x              }π      else beginπ        Win_ACTIVE := True ;π        DV_VERSION := swap(REG.AX) ;π      end ;π    end ;π  end ;ππ  DV_VIDEO_BUFFER ;πend. { main }π                                                                          2      05-28-9313:37ALL                      SWAG SUPPORT TEAM        DETCTWIN.PAS             IMPORT              38          {πHere's a little something that will detect Desqview and Windows ...π}πUnit DESQVIEW ;π{$O+,F+}ππInterfaceπUses Dos, Crt;ππVarπ  DV_ACTIVE    : Boolean ;          { True if running under DESQview     }π  Win_ACTIVE   : Boolean ;          { True if Windows 3.x Enhanced Mode  }π  DV_VERSION   : Word ;             { desqVIEW version number            }π  DV_VSEG      : Word ;π  DV_VMODE     : Byte Absolute $0040:$0049 ;π  DV_VWIDTH    : Byte ;π  DV_VROWS     : Byte ;π  DV_VofS      : Word ;πππProcedure DV_RQM   ;                { Give up the rest of our timeslice  }πProcedure DV_begin_CRITICAL ;       { Turn Task Switching off.           }πProcedure DV_end_CRITICAL ;         { Turn switching back on.            }πProcedure DV_VIDEO_BUFFER ;         { Set Global Video Variables         }πFunction  DV_Window_NUMBER : Byte ; { Returns Window Number              }πProcedure DV_COMMON_MEMorY(Var AVAIL, LARGEST, toTAL: Word) ;πProcedure DV_CONV_MEMorY  (Var AVAIL, LARGEST, toTAL: Word) ;πProcedure DV_EMS_MEMorY   (Var AVAIL, LARGEST, toTAL: Word) ;πProcedure DV_FASTWrite    (X,Y: Word; STR: String; FG,BG: Word) ;ππImplementationππVarπ  REG     : Registers ;ππProcedure DV_RQM ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov  ax, 1000hπ      int  15hπ    end ;π  end else beginπ    if Win_ACTIVE then beginπ      Asmπ        mov  ax, 1680hπ        int  2fhπ      end ;π    end ;π  end ;πend;ππProcedure DV_begin_CRITICAL ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov   ax, $101bπ      int   15hπ    end ;π  end else beginπ    if Win_ACTIVE then beginπ      Asmπ        mov  ax, 1681hπ        int  2fhπ      end ;π    end ;π  end ;πend ; { dv_begin_critical }ππProcedure DV_end_CRITICAL ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov   ax, $101cπ      int   15hπ    end ;π  end else beginπ    if Win_ACTIVE then beginπ      Asmπ        mov  ax, $1682π        int  2fhπ      end ;π    end ;π  end ;πend ; { dv_end_critical }ππProcedure DV_VIDEO_BUFFER ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov  ax, $2b02π      mov  bx, $4445  ; { DE }π      mov  dx, $5351  ; { SQ }π      int  21hπ      mov  DV_VSEG, dxπ      mov  DV_VWIDTH, blπ      mov  DV_VROWS, bhπ      mov  DV_VofS, 0π    end ;π  end else beginπ    if (DV_VMODE = 7) then DV_VSEG := $b000 else DV_VSEG := $b800 ;π    DV_VWIDTH := memw[$0040:$004a] ;π    DV_VROWS  := 25 ;π    DV_VofS   := memw[$0040:$004e] ;π  end ;πend ; { dv_video_buffer }ππFunction DV_Window_NUMBER ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov   ax, $de07π      int   15hπ      mov  @RESULT, alπ    end ;π  end else beginπ    DV_Window_NUMBER := 0 ;π  end ;πend ;ππProcedure DV_COMMON_MEMorY ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov  ax, $de04π      int  15hπ      les  di, AVAILπ      mov  es:[di], bxπ      les  di, LARGESTπ      mov  es:[di], cxπ      les  di, toTALπ      mov  es:[di], dxπ    end ;π  end else beginπ    AVAIL := 0 ;π    LARGEST := 0 ;π    toTAL := 0 ;π  end ;πend ;ππProcedure DV_CONV_MEMorY ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov  ax, $de05π      int  15hπ      les  di, AVAILπ      mov  es:[di], bxπ      les  di, LARGESTπ      mov  es:[di], cxπ      les  di, toTALπ      mov  es:[di], dxπ    end ;π  end else beginπ    AVAIL := 0 ;π    LARGEST := 0 ;π    toTAL := 0 ;π  end ;πend ;ππProcedure DV_EMS_MEMorY ;ππbeginπ  if DV_ACTIVE then beginπ    Asmπ      mov  ax, $de06π      int  15hπ      les  di, AVAILπ      mov  es:[di], bxπ      les  di, LARGESTπ      mov  es:[di], cxπ      les  di, toTALπ      mov  es:[di], dxπ    end ;π  end else beginπ    AVAIL := 0 ;π    LARGEST := 0 ;π    toTAL := 0 ;π  end ;πend ;ππProcedure DV_FASTWrite ;ππVarπ  I      : Word ;ππbeginπ  X := DV_VofS + ((Y-1) * DV_VWIDTH + (X-1)) * 2 ;π  For I := 1 to length(STR) do beginπ    MEMW[DV_VSEG:X] := (((BG shl 4) + FG) shl 8) + ord(STR[I]) ;π    X := X + 2 ;π  end ;πend ;ππbegin { main }π  REG.AX := $2b01 ;π  REG.CX := $4445 ;  { DE }π  REG.DX := $5351 ;  { SQ }π  intr($21,REG) ;ππ  Win_ACTIVE := False ;π  DV_ACTIVE := (REG.AL <> $ff) ;ππ  DV_VERSION := 0 ;π  if DV_ACTIVE then beginπ    DV_VERSION := REG.BX ;π    REG.AX := $de0b ;π    REG.BX := $0200 ;  { Minimum of Desqview 2.00 }π    intr($15,REG) ;π  end else beginπ    REG.AX := $1600 ;π    intr($2f,REG) ;π    Case REG.AL ofπ      $00 : ; { An enhanced Windows API is not Running }π      $80 : ; { An enhanced Windows API is not Running }π      $01 : ; { Windows / 386 Version 2.x              }π      $ff : ; { Windows / 386 Version 2.x              }π      else beginπ        Win_ACTIVE := True ;π        DV_VERSION := swap(REG.AX) ;π      end ;π    end ;π  end ;ππ  DV_VIDEO_BUFFER ;πend. { main }π                                                                     3      05-28-9313:37ALL                      SWAG SUPPORT TEAM        DV-VIDEO.PAS             IMPORT              7           {π> Has anyone done any work With DV's virtual screen?  Someplace Iπ> used to have the address For it, but I seem to have lost it.  Doesπ> anybody know what it is?ππ> What I'm trying to do is bypass TJT's direct screen Writes byπ> replacing the BaseOfScreen Pointer With the one For DV's virtualπ> screen. if I can't do that then I'm going to have to make anotherπ> attempt at rewriting the assembly level screen routines.π}ππFunction DV_Video_Buffer;πbeginπ  Reg.AH := $0F;π  INTR($10, Reg);π  if Reg.AL = 7 thenπ    Reg.ES := $B000π  elseπ    Reg.ES := $B800;π  if DV_Loaded thenπ  beginπ    Reg.DI := 0;π    Reg.AX := $FE00;π    INTR($10, Reg);π  end;π  DV_Video_Buffer := Reg.ES;πend;π                                                                               4      11-26-9318:18ALL                      FRED COHEN               Time SLICES for OS/2 & DVSWAG9311            23     t   {πFrom: FRED COHENπ      Time Slices...ππlooking for routines for giving up time slices toπvarious multi-taskers, mainly DV and OS/2.  Please eitherπpost them if they are small enough, or tell me where I canππYou will need turbo pascal 6.0+ for this to compile.  It is easy toπconvert over to regular pascal though.π}ππConstππ  MDOS = 0;  { DOS               }π  OS2  = 1;  { OS/2 is installed }π  WIN  = 2;  { Windoze           }π  DV   = 3;  { DesqView          }ππVarππ  Ops            : Byte;    { Operating System OS/2/DOS/WIN/DV}πππPROCEDURE giveslice; Assembler; {Gives up remainder of clock cycleπ                                 under dos, windows, os/2 }π  asmπ    CMP ops,MDos { Compare to DOS }π    JE @MSDOS    { Jump if = }π    CMP ops,Dv   { Compare to Desqview }π    JE @DESQVIEW { Jump if = }π    CMP ops, Win { Compare to Windows }π    JE @WINOS2   { Jump if = }π    CMP ops, OS2 { Compart OS/2 }π    JE @WINOS2   { Jump if = }π    JMP @NONE    { None found, Jump to End }πππ @MSDOS:π    INT 28h   { Interupt 28h }π    JMP @NONE { Jump to the end }ππ @DESQVIEW:π    MOV ax,1000h { AX = 1000h }π    INT 15h      { Call Interupt 15h }π    JMP @NONE    { Jump to the end }ππ @WINOS2:π    MOV AX, 1680h { AX = 1680h }π    INT 2Fh       { Call Interupt 2Fh for Win-OS/2 TimeSlice }ππ @NONE:ππend; {GiveSlice}ππ{***********}ππPROCEDURE checkos; Assembler;π{ Currently Supports DesqView, Microsoft Windows and IBM's OS/2 }ππasmπ  mov ops, MDos { Default DOS }π  mov ah, 30h   { AH = 30h }π  int 21h  { dos version }π  cmp al, 14hπ  jae @IBMOS2 { Jump if >= to 20 }πππ  mov ax,2B01hπ  mov cx,4445hπ  mov dx,5351hπ  int 21h { Desqview Installed? }π  cmp al, 255π  jne @DesqView { Jump if AL <> 255 }ππ  mov ax,160Ahπ  int 2Fh { Windows Install?}π  cmp ax, 0hπ  je @Windows { If = Jump to Windows }π  jmp @Finish { Nothing found, go to the end }ππ@IBMOS2:π  mov Ops, Os2  { Set OS Value }π  jmp @Finishππ@DesqView:π  mov ops, Dv   { Set OS Value }π  jmp @Finishππ@Windows:π  mov ops, win  { Set OS Value }π  jmp @Finishππ@FINISH:πend; { checkos }ππ{***********  MORE  ********}ππprocedure GiveTimeSlice;  ASSEMBLER;πasm     { GiveTimeSlice }π  cmp   MultiTasker, DesqViewπ  je    @DVwaitπ  cmp   MultiTasker, Windowsπ  je    @WinOS2waitπ  cmp   MultiTasker, OS2π  je    @WinOS2waitπ  cmp   MultiTasker, NetWareπ  je    @Netwarewaitπ  cmp   MultiTasker, DoubleDOSπ  je    @DoubleDOSwaitππ@Doswait:π  int   $28π  jmp   @WaitDoneππ@DVwait:π  mov   AX, $1000π  int   $15π  jmp   @WaitDoneππ@DoubleDOSwait:π  mov   AX, $EE01π  int   $21π  jmp   @WaitDoneππ@WinOS2wait:π  mov   AX, $1680π  int   $2Fπ  jmp   @WaitDoneππ@Netwarewait:π  mov   BX, $000Aπ  int   $7Aππ@WaitDone:πend;    { TimeSlice }ππ